program main
    implicit none
	real*8 :: time_begin, time_end
	CALL CPU_TIME (time_begin)
	!--------------------------
    call Possion2DT31
    !call Possion2DQ41
    !call Possion1DL21
    !call Possion3DT101
    !call Possion3DH201
    !call Possion1DL21
!   call Possion3DT41
    !call Possion2DT61
    !call Possion2DQ81
    
    !call gcdTest
    !call Possion2DT31NL
    !call Possion2DT31NLQXGDF
    !call Possion2DT31NLCSGDF
    !call AxisyPossion2DT31
    !call Possion2DT3CR1
    !call Possion2D_ConvergenceVerify
    !--------------------------
    CALL CPU_TIME (time_end)  
    write (*, *) 'Time of operation was ', time_end - time_begin, ' seconds'
end program